#!/usr/bin/perl -w
# Task B (2 points)
# Write a program that first asks the user for a number and then asks for that many 
# sequences as input. That is, if the user gives 4 as the number, the program should 
# ask for four sequences. Each sequence should then be stored in an array. As output, 
# print the entire array containing the sequences.
#
#
# 
# Get the number of sequences from user
print "Please give the number of sequence you wish to store ";
$N = <STDIN>;chomp($N);

# Read in each sequence
for ($i =0 ; $i<$N; $i++){
	print "Please give sequence number $i";
     $seq = <STDIN>;chomp($seq);
     $a[$i] = $seq;
 } 
 
 # Write out the whole array
 foreach $element (@a){
 	print($element."\n");
 }